home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / cig / libcig.c < prev    next >
C/C++ Source or Header  |  1995-11-04  |  2KB  |  87 lines
  1. /* This is an Scheme48/C interface file, 
  2. ** automatically generated by cig.
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <stdlib.h> /* For malloc. */
  7. #include "libcig.h"
  8.  
  9. scheme_value df_strlen_or_false(long nargs, scheme_value *args)
  10. {
  11.     extern scheme_value strlen_or_false(const char * );
  12.     scheme_value ret1;
  13.     scheme_value r1;
  14.  
  15.     cig_check_nargs(1, nargs, "strlen_or_false");
  16.     r1 = strlen_or_false((const char * )AlienVal(args[0]));
  17.     ret1 = r1;
  18.     return ret1;
  19.     }
  20.  
  21. scheme_value df_cstring_nullp(long nargs, scheme_value *args)
  22. {
  23.     extern int cstring_nullp(const char * );
  24.     scheme_value ret1;
  25.     int r1;
  26.  
  27.     cig_check_nargs(1, nargs, "cstring_nullp");
  28.     r1 = cstring_nullp((const char * )AlienVal(args[0]));
  29.     ret1 = ENTER_BOOLEAN(r1);
  30.     return ret1;
  31.     }
  32.  
  33. scheme_value df_c2scheme_strcpy_free(long nargs, scheme_value *args)
  34. {
  35.     extern int c2scheme_strcpy_free(scheme_value , char* );
  36.     scheme_value ret1;
  37.     int r1;
  38.  
  39.     cig_check_nargs(2, nargs, "c2scheme_strcpy_free");
  40.     r1 = c2scheme_strcpy_free(args[1], (char* )AlienVal(args[0]));
  41.     ret1 = ENTER_BOOLEAN(r1);
  42.     return ret1;
  43.     }
  44.  
  45. scheme_value df_c2scheme_strcpy(long nargs, scheme_value *args)
  46. {
  47.     extern int c2scheme_strcpy(scheme_value , char* );
  48.     scheme_value ret1;
  49.     int r1;
  50.  
  51.     cig_check_nargs(2, nargs, "c2scheme_strcpy");
  52.     r1 = c2scheme_strcpy(args[1], (char* )AlienVal(args[0]));
  53.     ret1 = ENTER_BOOLEAN(r1);
  54.     return ret1;
  55.     }
  56.  
  57. scheme_value df_c_veclen(long nargs, scheme_value *args)
  58. {
  59.     extern scheme_value c_veclen(long* );
  60.     scheme_value ret1;
  61.     scheme_value r1;
  62.  
  63.     cig_check_nargs(1, nargs, "c_veclen");
  64.     r1 = c_veclen((long* )AlienVal(args[0]));
  65.     ret1 = r1;
  66.     return ret1;
  67.     }
  68.  
  69. scheme_value df_free(long nargs, scheme_value *args)
  70. {
  71.     extern void free(void* );
  72.  
  73.     cig_check_nargs(1, nargs, "free");
  74.     free((void* )AlienVal(args[0]));
  75.     return SCHFALSE;
  76.     }
  77.  
  78. scheme_value df_set_strvec_carriers(long nargs, scheme_value *args)
  79. {
  80.     extern void set_strvec_carriers(scheme_value , char** );
  81.  
  82.     cig_check_nargs(2, nargs, "set_strvec_carriers");
  83.     set_strvec_carriers(args[1], (char** )AlienVal(args[0]));
  84.     return SCHFALSE;
  85.     }
  86.  
  87.